home *** CD-ROM | disk | FTP | other *** search
Text File | 1992-09-02 | 2.2 KB | 81 lines | [TEXT/CCL2] |
-
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ;; GETA-browser.lisp
- ;;
- ;;
- ;; 1992, GETA
- ;;
- ;; For contact : Mathieu Lafourcade
- ;; GETA-Imag
- ;; 150, rue de la Chimie
- ;; BP 53X
- ;; 38041 Grenoble Cedex, France
- ;; e-mail : lafourca@imag.fr (internet)
- ;;
- ;; Load the GETA-browser package
- ;;
-
- (in-package :ccl)
-
- ; load our files
-
- (unless (find-package :geta-browser)
- (defpackage :geta-browser
- (:use :common-lisp :ccl)
- (:export :browse-class)))
-
-
- (defparameter *geta-browser-loaded?* nil "If T, browser has been loaded")
-
- (defparameter *geta-browser-host* "ccl")
- (defparameter *geta-browser-directory* "GETA-Browser Folder;Browser;")
-
- (defparameter *geta-browser-files*
- '("Standard-node"
- "Class-node"
- "Grapher"
- "CLOS-Grapher"
- "Node-menu"
-
- ;; these files are only required if you want
- ;; to browse more than classes
- "Class-leaf-node"
- "Slot&Method-node"
-
- ;; for installation
- "Class-browser-dialog"
- ))
-
- (defun compile-geta-browser ()
- (dolist (file *geta-browser-files*)
- (let ((filename (make-pathname :host *geta-browser-host*
- :directory *geta-browser-directory*
- :name file)))
- (format t "~% Compiling ~a..." filename)
- (compile-file filename))))
-
- (defun load-geta-browser ()
- (unless *geta-browser-loaded?*
- (dolist (file *geta-browser-files*)
- (let ((filename (make-pathname :host *geta-browser-host*
- :directory *geta-browser-directory*
- :name file)))
- (format t "~% Loading ~a..." filename)
- (load filename)))
- (setf *geta-browser-loaded?* t)))
-
-
- ; (compile-geta-browser) ; Try this before loading GETA-browser
-
- (load "ccl:Library;QuickDraw")
- (load-geta-browser)
-
- ; the function to be exported
- (defun browse-class (class)
- (GETA-Browser::browse-class (find-class class))
- )
-
- ;; (time (ccl::browse-class 'geta-browser::node))
- ;; (time (ccl::browse-class t))
-
-